10 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23:L=0:W=0:Z=0:C=0
15 PRINT"[147]                                        [146]";
20 PRINT"            [202]AMIE'S [211]PELLING            [146]";
25 PRINT"                                        [146]";
30 PRINT"                                        [146]";
35 PRINT"               [213]NIT [196]-12                [146]";
40 PRINT"                                        [146][159]":GOSUB300
45 REM THIS UNIT PREPARED BY BILL CUMBERLAND 1992:03:15
50 GOSUB700
55 GOSUB 600
60 GOTO1000
200 PRINT"[147][159]              [215][207][210][196][160][204][201][211][212]                 [146]"
205 PRINT" JUICIEST   ANGRIER  LAZIER   CRAZIEST
210 [153]" GREEDIEST  HAPPIER  FOGGIEST LONELIEST
215 PRINT" HEAVIEST   EASIER   UGLIEST  STURDIER
220 [153]" GRASSIER   EARLIER  WINDIEST SUNNIER
225 PRINT" PRETTIEST  FUNNIER  FANCIEST WEARIEST":GOSUB401
230 RETURN
240 GOSUB400
245 PRINT"[155]* [213]NSCRAMBLE THIS [158]ROOT[155] WORD.  [212]HEN
250 [153]"  ADD A SYSSUFFIXLIST TO FORM A LIST WORD.":[141]401:[141]560
255 [142]
270 [153]"               LEN(null)(null)(null)VALLEN(null)!                 WAIT":[141]500:[142]
280 [143] IF X=1THENGOSUB290
282 [153]"DEF            (null)HOOPS!  (null)O!                WAIT":X[178]X[170]1:[141]530:[141]402
284 [153]"ONON            (null)RY AGAIN                   PRINT":[141]402:[141]560
286 [153]"ONON                                        ONON"
288 [153]"ONON                                        ONON":[142]
290 [153]"DEFONON>> (null)HE CORRECT WORD IS........       ":[141]530
295 [153]"                                    ONPRINT":[142]
300 [141]402:[141]560
305 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null)CLOSETO CONTINUE       WAITLIST"
310 [161]R$:[139]R$[179][177][199](32)[167]310
315 [142]
400 [129]T[178]1[164] 500:[130]:[142]
401 [129]T[178]1[164] 1000:[130]:[142]
402 [129]T[178]1[164] 2000:[130]:[142]
403 [129]T[178]1[164] 3000:[130]:[142]
404 [129]T[178]1[164] 4000:[130]:[142]
405 [129]T[178]1[164] 5000:[130]:[142]
500 [143] <YES> SOUND
505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
515 [151]54276,23:[151]54273,23:[151]54272,191
520 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
525 [151]54296,0:[142]
530 [143] <NO> SOUND
535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
540 [151]54296,15:[151]54277,18:[151]54278,242
545 [151]54276,33:[151]54273,4:[151]54272,48
550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
555 [151]54296,0:[142]
560 [143] <BLIP> SOUND
565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
570 [151]54296,8:[151]54277,42:[151]54278,250
575 [151]54276,23:[151]54273,23:[151]54272,191
580 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
585 [151]54296,0:[142]
600 [153]"LOADPRINT     (null)HERE ARE TEN QUESTIONS":[141]401
610 [153]"     (null)OUR PERFORMANCE WILL BE SCORED.":[141]401
620 [141]300
630 [153]"LOAD AND AWAY WE GO .........":[141]402:[141]500:[141]401
640 [142]
700 [153]"OPENLOAD               CHR$AME (null)LAN                WAIT
705 PRINT"     [193]DJECTIVES ENDING IN [158]ER[159] COMPARE         TWO THINGS.
710 [153]"     ATNDJECTIVES ENDING IN SYSESTOPEN COMPARE
715 PRINT"     THREE OR MORE THINGS.
717 [153]"     (null)O ADD SYSEROPEN OR SYSESTOPEN TO AN ADJECTIVE
718 PRINT"     THAT ENDS IN [158]Y[159], CHANGE THE
719 [153]"     SYSYOPEN TO AN SYSIOPEN FIRST
720 GOSUB403:PRINT"               [197][216][193][205][208][204][197][211]":GOSUB560:GOSUB401
725 PRINT"[153]           HAPPY + ER[159] = [153]HAPPIER":GOSUB402
730 PRINT"          HAPPY + EST[159] = [153]HAPPIEST":GOSUB402
755 GOSUB402:GOSUB300
760 RETURN
1000 REM # 1
1005 GOSUB200:GOSUB240:X=0
1010 PRINT"[153]               WAREY   [158]"
1015 INPUT A$
1020 IFA$="WEARIEST"THEN GOSUB270:GOSUB402:GOTO1050
1025 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1035
1030 Z=Z+1:GOSUB280:GOTO1015
1035 PRINT"              WEARIEST  "
1040 GOSUB300
1049 :
1050 REM # 2
1055 GOSUB200:GOSUB240:X=0
1060 PRINT"[153]                GOFGY  [158]"
1065 INPUT A$
1070 IFA$="FOGGIEST"THEN GOSUB270:GOSUB402:GOTO1100
1075 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1085
1080 Z=Z+1:GOSUB280:GOTO1065
1085 PRINT"               FOGGIEST  "
1090 GOSUB300
1100 REM # 3
1105 GOSUB200:GOSUB240:X=0
1110 PRINT"[153]               DREEGY   [158]"
1115 INPUT A$
1120 IFA$="GREEDIEST"THEN GOSUB270:GOSUB402:GOTO1150
1125 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1135
1130 Z=Z+1:GOSUB280:GOTO1115
1135 PRINT"              GREEDIEST"
1140 GOSUB300
1149 :
1150 REM # 4
1155 GOSUB200:GOSUB240:X=0
1160 PRINT"[153]             PAPHY       [158]"
1165 INPUT A$
1170 IFA$="HAPPIER"THEN GOSUB270:GOSUB402:GOTO1200
1175 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1185
1180 Z=Z+1:GOSUB280:GOTO1165
1185 PRINT"             HAPPIER     "
1190 GOSUB300
1200 REM # 5
1205 GOSUB200:GOSUB240:X=0
1210 PRINT"[153]              TREPTY   [158]"
1215 INPUT A$
1220 IFA$="PRETTIEST"THEN GOSUB270:GOSUB402:GOTO1250
1225 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1235
1230 Z=Z+1:GOSUB280:GOTO1215
1235 PRINT"             PRETTIEST   "
1240 GOSUB300
1249 :
1250 REM # 6
1255 GOSUB200:GOSUB240:X=0
1260 PRINT"[153]              VEHAY     [158]"
1265 INPUT A$
1270 IFA$="HEAVIEST"THEN GOSUB270:GOSUB402:GOTO1300
1275 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1285
1280 Z=Z+1:GOSUB280:GOTO1265
1285 PRINT"            HEAVIEST   "
1290 GOSUB300
1300 REM # 7
1305 GOSUB200:GOSUB240:X=0
1310 PRINT"[153]               NUNFY   [158]"
1315 INPUT A$
1320 IFA$="FUNNIER"THEN GOSUB270:GOSUB402:GOTO1350
1325 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1335
1330 Z=Z+1:GOSUB280:GOTO1315
1335 PRINT"              FUNNIER    "
1340 GOSUB300
1349 :
1350 REM # 8
1355 GOSUB200:GOSUB240:X=0
1360 PRINT"[153]               ASEY      [158]"
1365 INPUT A$
1370 IFA$="EASIER"THEN GOSUB270:GOSUB402:GOTO1400
1375 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1385
1380 Z=Z+1:GOSUB280:GOTO1365
1385 PRINT"               EASIER  "
1390 GOSUB300
1400 REM # 9
1405 GOSUB200:GOSUB240:X=0
1410 PRINT"[153]               LUGY   [158]"
1415 INPUT A$
1420 IFA$="UGLIEST"THEN GOSUB270:GOSUB402:GOTO1450
1425 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1435
1430 Z=Z+1:GOSUB280:GOTO1415
1435 PRINT"              UGLIEST    "
1440 GOSUB300
1449 :
1450 REM # 10
1455 GOSUB200:GOSUB240:X=0
1460 PRINT"[153]               NOLLEY     [158]"
1465 INPUT A$
1470 IFA$="LONELIEST"THEN GOSUB270:GOSUB402:GOTO1600
1475 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1485
1480 Z=Z+1:GOSUB280:GOTO1465
1485 PRINT"              LONELIEST    "
1490 GOSUB300
1600 REM SCORE BOARD
1605 K=Z-W:C=10-Z
1610 PRINT"[147][200]ERE IS YOUR SCORE FOR [213]NIT [196]-12:"
1615 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [153][198][201][210][211][212] [212][210][217]  "C
1620 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [158][211][197][195][207][206][196] [212][210][217] "K
1625 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212][160][207][206][160][150][212][200][201][210][196] [212][210][217]  "W
1630 PRINT"":GOSUB403:GOSUB300
1650 :
1655 PRINT"[147][158][217]OU NOW HAVE A CHOICE:
1660 [153]"(null)RESS  R WAIT TO REPEAT THIS UNIT
1665 PRINT"[208]RESS  M [146] TO RETURN TO THE DISK MENU
1670 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[137]1670
1675 [139]R$[178]"R"[167][140]:[137]10
1680 [153]"LOAD(null)ETURNING TO THE DISK (null)VAL(null)(null)
1685 LOAD"MENU",8
1690 RUN
1695 END
1700 REM DESIGNED BY BILL CUMBERLAND 92:01:13
1710 REM FOR MY GRANDSON, JAMIE.
1720 REM SPELLING D - MODERN CURRICULUM PRESS